Міністерство освіти і науки України Національний технічний університет України “Київський політехнічний інститут” Кафедра ОТ ЗВІТ про виконання лабораторної роботи № 3.2 з дисципліни “Основи програмування та алгоритмічні мови” Постановка задачі Задані дійсні числа х ( 0, Е > 0. З точністю 10-5 обчислити значення суми
. Визначити кількість доданків. Для отривання відповіді, ми будемо створювати цикл, який буде виконуватися до тих пір, поки не буде досягнено, потрібної точності обчислення. І реалізується ця задача наступним алгоритмом…Блок-схема
Текс програми program lab_3_2; var s1, {1 element} a, {2 element} s, {syma elementiv} x, {zminna x} l:real; {10^-5} i, {zminna dla tsukla 'for i:=1 to n do...} k:integer; {n elementa} begin s:=0; k:=0; s1:=1; a:=1; l:=1/exp(10*ln(5)); write('vvedit x, x='); readln(x); writeln; {------------------------} While (abs(s1-s)>l) do begin k:=k+1; s1:=s; a:=a*((x*x)/(2*k)); s:=s+a; writeln('a(',k:2,')=',a:12:8,' s(',k,')=',s:10:8); end; {------------------------} writeln; writeln('s=',s:10:8); writeln('k=',k); readln; end. 
Як можна побачити із приведенного зображення коли булла досягнута задана точність: а(8)=0.0000001 , то программа перервала своє виконання і вивела одержаний результат.